home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / util / rexx / AutoJ_B_11.lha / AutoJoin2.rx_(spanish) < prev   
Text File  |  1997-09-07  |  7KB  |  289 lines
  1. /*  MOVIESHOP Arexx macro
  2. **  $VER:AutoJoin2 1.1 ( 1 Sep 1997 )
  3. **  Fco. Vidal, Valencia, Spain
  4. **  (E-Mail: fjvidal@ctv.es)
  5. **  Freely distributable - Please send comments and any
  6. **  useful scripts you may have - thanks.
  7. **
  8. **  Move it all scenes into "TimeLine"
  9. **  opening a box-request for operator choice and size.
  10. **
  11. **  NOTE: Work ok with operators for 2 scenes transition.
  12. **        Requires rexxreqtools.library
  13. **
  14. **  ( Tested with VLabMotion )
  15. */
  16.  
  17. ADDRESS MOVIESHOP
  18. OPTIONS RESULTS
  19.  
  20. IF ~SHOW('l','rexxreqtools.library') THEN DO
  21.   CHECK = ADDLIB('rexxreqtools.library',0,-30,0)
  22. END
  23.  
  24. TIMELINEENTRYDESTMODE NORMAL
  25.  
  26. GOTOTIMELINEFRAME LAST
  27.  
  28. GETTIMELINEFRAMEPOS
  29. if RC ~= 0 then in = 0
  30. else do
  31.   I = RESULT
  32.   I = I + 1
  33.   NUMBERTOTIME FRAMENUMBER I
  34.   in = RESULT
  35. end
  36.  
  37. if in = 0 then I = 0
  38. else nop
  39.  
  40. GOTOSCENE NUMBER 0
  41.  
  42. do g = 1 to 999
  43.   TS = g
  44.   GOTOSCENE NEXT
  45.   options failat 10
  46.   if (RC=10) then g = 999
  47. end g
  48.  
  49.  
  50. GOTOSCENE NUMBER 0
  51. SCENETOTIMELINE TIME in
  52.  
  53. TS = TS - 1
  54. FR = 0
  55.  
  56. nl = '0a'x
  57.  
  58. call addlib('rexxreqtools.library',0,-30)
  59.  
  60. CHECKTIMELINE
  61. if RC ~= 0 then 
  62.  call rtezrequest("EN EL TIMELINE HAY UN ERROR." nl,
  63.                   "ESTE SCRIPT NO FUNCIONARA" nl,
  64.                   "HASTA QUE LO CORRIJA" ,,
  65.                   "LO SIENTO",,'rt_reqpos=reqpos_centerscr')
  66.  
  67. if rtresult == 0 then EXIT
  68.  
  69. /**/
  70. EFFECTS0:
  71.  
  72. do h = 1 to TS
  73.    call rtezrequest(" 1 = Bars" nl,
  74.                     "2 = Bouncer" nl,
  75.                     "3 = CircleWipe" nl,
  76.                     "4 = Collapse (Image)" nl,
  77.                     "5 = Cone (Image)" ,,
  78.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  79.  
  80.    if rtresult == 0 then call effects1
  81. else do
  82.    if rtresult == 1 then effectname = "Bars"
  83.    if rtresult == 2 then effectname = "Bouncer"
  84.    if rtresult == 3 then effectname = "CircleWipe"
  85.    if rtresult == 4 then effectname = "Collapse"
  86.    if rtresult == 5 then effectname = "Cone"
  87. end
  88.  
  89.    GETFRAMENUMBER ALL
  90.    PP = RESULT
  91.  
  92.    RM = PP + I
  93.  
  94.    GOTOSCENE NEXT
  95.    GETFRAMENUMBER ALL
  96.    RS = RESULT
  97.  
  98.    J = PP - FR
  99.    if J > RS then S = RS
  100.    else S = J
  101.  
  102.    N = 25
  103.    if S < N then N = S
  104.  
  105.    FR = rtgetlong(N, "1 segundo son 25 frames." nl,
  106.                  "¿Cuantos frames quieres que dure el efecto? (Max="S")",,
  107.                  "Digame:", ,,
  108.                  'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  109.  
  110.    if FR > S then FR = S
  111.  
  112.    I = RM - FR
  113.  
  114.    NUMBERTOTIME FRAMENUMBER FR
  115.    Y = RESULT
  116.  
  117.    NUMBERTOTIME FRAMENUMBER I
  118.    RT = RESULT
  119.  
  120.    SCENETOTIMELINE TIME RT
  121.  
  122.    EFFECTTOTIMELINE effectname TIME RT TRACK 2 LENGTH Y
  123.  
  124.    TS = TS -1
  125.  
  126.    call test
  127.  
  128. end h
  129.  
  130. exit
  131.  
  132. /**/
  133. TEST:
  134.  
  135. CHECKTIMELINE
  136.     DO WHILE RC ~= 0
  137.  
  138.       if effectname ~= "Fade" then MSG = """BACKGROUND = IMAGE"""
  139.       else MSG = """THROUGH"""
  140.       call rtezrequest("DEBE SELECCIONAR "MSG nl,
  141.                             "EN LAS PREFERENCIAS DEL OPERADOR" nl,
  142.                             "ANTES DE CONTINUAR." ,,
  143.                             "HECHO",,'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  144.       CHECKTIMELINE
  145.     END
  146.  
  147. return
  148.  
  149. /**/
  150. EFFECTS1:
  151.  
  152.    call rtezrequest(" 1 = CrossWave (Image)" nl,
  153.                     "2 = Cube2" nl,
  154.                     "3 = Cylinder (Image)" nl,
  155.                     "4 = Disc (Image)" nl,
  156.                     "5 = Fade (Through)" ,,
  157.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  158.  
  159.    if rtresult == 0 then call effects2
  160.  
  161. else do
  162.    if rtresult == 1 then effectname = "CrossWave"
  163.    if rtresult == 2 then effectname = "PCube"
  164.    if rtresult == 3 then effectname = "Cylinder"
  165.    if rtresult == 4 then effectname = "Disc"
  166.    if rtresult == 5 then effectname = "Fade"
  167. end
  168. return
  169.  
  170. /**/
  171. EFFECTS2:
  172.  
  173.    call rtezrequest(" 1 = Flip" nl,
  174.                     "2 = Flupp" nl,
  175.                     "3 = Fly" nl,
  176.                     "4 = Funnel (Image)" nl,
  177.                     "5 = HalftSphere (Image)" ,,
  178.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  179.  
  180.    if rtresult == 0 then call effects3
  181. else do
  182.    if rtresult == 1 then effectname = "Flip"
  183.    if rtresult == 2 then effectname = "Flupp"
  184.    if rtresult == 3 then effectname = "Fly"
  185.    if rtresult == 4 then effectname = "Funnel"
  186.    if rtresult == 5 then effectname = "HalftSphere"
  187. end
  188. return
  189.  
  190. /**/
  191. EFFECTS3:
  192.  
  193.    call rtezrequest(" 1 = Karo" nl,
  194.                     "2 = Liquid1" nl,
  195.                     "3 = Liquid2" nl,
  196.                     "4 = Melt" nl,
  197.                     "5 = PageTurn (Image)" ,,
  198.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  199.  
  200.    if rtresult == 0 then call effects4
  201. else do
  202.    if rtresult == 1 then effectname = "Karo"
  203.    if rtresult == 2 then effectname = "Liquid1"
  204.    if rtresult == 3 then effectname = "Liquid2"
  205.    if rtresult == 4 then effectname = "Melt"
  206.    if rtresult == 5 then effectname = "PageTurn"
  207. end
  208. return
  209.  
  210. /**/
  211. EFFECTS4:
  212.  
  213.    call rtezrequest(" 1 = Polar" nl,
  214.                     "2 = Radar" nl,
  215.                     "3 = Raster" nl,
  216.                     "4 = Roll (Image)" nl,
  217.                     "5 = Rotate (Reverse Image)" ,,
  218.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  219.  
  220.    if rtresult == 0 then call effects5
  221. else do
  222.    if rtresult == 1 then effectname = "Polar"
  223.    if rtresult == 2 then effectname = "Radar"
  224.    if rtresult == 3 then effectname = "Raster"
  225.    if rtresult == 4 then effectname = "Roll"
  226.    if rtresult == 5 then effectname = "Rotate"
  227. end
  228. return
  229.  
  230. /**/
  231. EFFECTS5:
  232.  
  233.    call rtezrequest(" 1 = Rotate 3D (2.Image)" nl,
  234.                     "2 = Shift" nl,
  235.                     "3 = Sphere (Image)" nl,
  236.                     "4 = Sphere1" nl,
  237.                     "5 = Sphere2" ,,
  238.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  239.  
  240.    if rtresult == 0 then call effects6
  241. else do
  242.    if rtresult == 1 then effectname = "T3D2"
  243.    if rtresult == 2 then effectname = "Shift"
  244.    if rtresult == 3 then effectname = "Sphere"
  245.    if rtresult == 4 then effectname = "Sphere1"
  246.    if rtresult == 5 then effectname = "Sphere2"
  247. end
  248. return
  249.  
  250. /**/
  251. EFFECTS6:
  252.  
  253.    call rtezrequest(" 1 = Stretch" nl,
  254.                     "2 = Swap1" nl,
  255.                     "3 = Swap2" nl,
  256.                     "4 = Swirl1" nl,
  257.                     "5 = Swirl2" ,,
  258.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  259.  
  260.    if rtresult == 0 then call effects7
  261. else do
  262.    if rtresult == 1 then effectname = "Stretch"
  263.    if rtresult == 2 then effectname = "Swap1"
  264.    if rtresult == 3 then effectname = "Swap2"
  265.    if rtresult == 4 then effectname = "Swirl1"
  266.    if rtresult == 5 then effectname = "Swirl2"
  267. end
  268. return
  269.  
  270. /**/
  271. EFFECTS7:
  272.  
  273.    call rtezrequest(" 1 = Telescope" nl,
  274.                     "2 = TurnOver" nl,
  275.                     "3 = Twirl (Image)" nl,
  276.                     "4 = Wave (Image)" nl,
  277.                     "5 = Wipe" ,,
  278.                     "_1|_2|_3|_4|_5|Mas","ELEGIR",'rt_reqpos=reqpos_centerscr')
  279.  
  280.    if rtresult == 0 then call effects0
  281. else do
  282.    if rtresult == 1 then effectname = "Telescope"
  283.    if rtresult == 2 then effectname = "TurnOver"
  284.    if rtresult == 3 then effectname = "Twirl"
  285.    if rtresult == 4 then effectname = "Wave"
  286.    if rtresult == 5 then effectname = "Wipe"
  287. end
  288. return
  289.